home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pcroct89.arc / BATCH.ARC / INPUTGET.BAS < prev    next >
BASIC Source File  |  1990-03-21  |  799b  |  21 lines
  1. 10 REM INPUTGET.BAS creates INPUTGET.COM, which writes
  2. 20 REM keyboard input (up to 32 characters or ENTER)
  3. 30 REM into file specified on command line.
  4. 40 REM Example:  inputget input.txt
  5. 50 OPEN "inputget.com" FOR OUTPUT AS 1
  6. 60 FOR I=1 TO 86
  7. 70 READ BYTE
  8. 80 PRINT #1, CHR$(BYTE);
  9. 90 NEXT I
  10. 100 CLOSE #1
  11. 110 PRINT "inputget.com created"
  12. 120 DATA 140, 200, 142, 216, 142, 192, 252, 190, 129, 0
  13. 130 DATA 191, 167, 1, 181, 0, 187, 128, 0, 138, 15
  14. 140 DATA 243, 164, 198, 5, 0, 180, 60, 186, 168, 1
  15. 150 DATA 185, 0, 0, 205, 33, 163, 81, 1, 186, 85
  16. 160 DATA 1, 180, 10, 205, 33, 139, 30, 81, 1, 186
  17. 170 DATA 87, 1, 138, 14, 86, 1, 181, 0, 180, 64
  18. 175 DATA 205, 33, 139, 30, 81, 1, 180, 62, 205, 33
  19. 185 DATA 176, 10, 180, 14, 205, 16, 184, 0, 76, 205
  20. 190 DATA 33, 00, 00, 00, 00, 32
  21.